BBS in a Box 12

home *** CD-ROM | disk | FTP | other *** search

/ BBS in a Box 12 / BBS in a box XII-2.iso / Files II / MacTechNotes / Platforms & Tools / Stand-Alone Code.sit / Persistƒ / PersistTest.p < prev next >

MacBinary | 1990-07-24 | 1.3 KB | [TEXT/MPS ]

open in:

MacOS 8.1 extracted |

Win98 extracted |

DOS extracted

view JSON data |

view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: PersistTest.p

Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Tue Jul 24 15:29:44 1990, modified Tue Jul 24 15:29:44 1990, creator 'MPS ', type ASCII, 716 bytes "PersistTest.p" , at 0x34c 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default

id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MPS ]`

hex view

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 50 65 72 73 69 73 | 74 54 65 73 74 2e 70 00 |..Persis|tTest.p.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 02 cc 00 | 00 01 7e a2 d2 52 28 a2 |........|..~..R(.|
|00000060| d2 52 28 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.R(.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 e7 98 00 00 |........|........|
|00000080| 0d 50 52 4f 47 52 41 4d | 20 54 65 73 74 41 70 70 |.PROGRAM| TestApp|
|00000090| 3b 0d 0d 55 53 45 53 0d | 09 54 79 70 65 73 2c 20 |;..USES.|.Types, |
|000000a0| 52 65 73 6f 75 72 63 65 | 73 2c 20 4d 65 6d 6f 72 |Resource|s, Memor|
|000000b0| 79 2c 20 4f 53 55 74 69 | 6c 73 3b 0d 0d 43 4f 4e |y, OSUti|ls;..CON|
|000000c0| 53 54 0d 09 4e 20 3d 20 | 35 3b 0d 09 6b 41 63 63 |ST..N = |5;..kAcc|
|000000d0| 75 6d 75 6c 61 74 65 20 | 3d 20 30 3b 09 7b 54 68 |umulate |= 0;.{Th|
|000000e0| 65 73 65 20 61 72 65 20 | 74 68 65 20 63 6f 6e 74 |ese are |the cont|
|000000f0| 72 6f 6c 20 6d 65 73 73 | 61 67 65 73 2e 7d 0d 09 |rol mess|ages.}..|
|00000100| 6b 46 69 72 73 74 54 69 | 6d 65 20 3d 20 31 3b 0d |kFirstTi|me = 1;.|
|00000110| 09 6b 4c 61 73 74 54 69 | 6d 65 20 3d 20 32 3b 0d |.kLastTi|me = 2;.|
|00000120| 09 0d 56 41 52 0d 09 69 | 20 3a 20 49 6e 74 65 67 |..VAR..i| : Integ|
|00000130| 65 72 3b 0d 09 61 63 63 | 20 3a 20 4c 6f 6e 67 69 |er;..acc| : Longi|
|00000140| 6e 74 3b 0d 09 68 31 2c | 20 6f 74 68 65 72 41 35 |nt;..h1,| otherA5|
|00000150| 3a 20 48 61 6e 64 6c 65 | 3b 0d 09 0d 0d 09 46 55 |: Handle|;.....FU|
|00000160| 4e 43 54 49 4f 4e 20 43 | 61 6c 6c 4d 6f 64 75 6c |NCTION C|allModul|
|00000170| 65 20 28 70 61 72 6d 3a | 20 4c 6f 6e 67 69 6e 74 |e (parm:| Longint|
|00000180| 3b 20 6d 65 73 73 61 67 | 65 3a 20 49 6e 74 65 67 |; messag|e: Integ|
|00000190| 65 72 3b 20 56 41 52 20 | 6f 74 68 65 72 41 35 3a |er; VAR |otherA5:|
|000001a0| 20 48 61 6e 64 6c 65 3b | 0d 09 09 6d 6f 64 48 61 | Handle;|...modHa|
|000001b0| 6e 64 6c 65 3a 20 48 61 | 6e 64 6c 65 29 20 3a 20 |ndle: Ha|ndle) : |
|000001c0| 4c 6f 6e 67 69 6e 74 3b | 0d 09 49 4e 4c 49 4e 45 |Longint;|..INLINE|
|000001d0| 09 24 32 30 35 46 2c 0d | 09 09 09 24 32 30 35 30 |.$205F,.|...$2050|
|000001e0| 2c 0d 09 09 09 24 34 45 | 39 30 3b 0d 09 0d 09 0d |,....$4E|90;.....|
|000001f0| 42 45 47 49 4e 0d 09 68 | 31 20 3a 3d 20 47 65 74 |BEGIN..h|1 := Get|
|00000200| 52 65 73 6f 75 72 63 65 | 28 27 43 55 53 54 27 2c |Resource|('CUST',|
|00000210| 31 32 39 29 3b 0d 09 4d | 6f 76 65 48 48 69 28 68 |129);..M|oveHHi(h|
|00000220| 31 29 3b 0d 09 48 4c 6f | 63 6b 28 68 31 29 3b 0d |1);..HLo|ck(h1);.|
|00000230| 0d 09 46 4f 52 20 69 20 | 3a 3d 20 31 20 54 4f 20 |..FOR i |:= 1 TO |
|00000240| 4e 20 44 4f 0d 09 09 42 | 45 47 49 4e 0d 09 09 09 |N DO...B|EGIN....|
|00000250| 43 41 53 45 20 69 20 4f | 46 0d 09 09 09 09 31 3a |CASE i O|F.....1:|
|00000260| 20 61 63 63 20 3a 3d 20 | 43 61 6c 6c 4d 6f 64 75 | acc := |CallModu|
|00000270| 6c 65 28 69 2c 6b 46 69 | 72 73 74 54 69 6d 65 2c |le(i,kFi|rstTime,|
|00000280| 6f 74 68 65 72 41 35 2c | 68 31 29 3b 0d 09 09 09 |otherA5,|h1);....|
|00000290| 09 4e 3a 20 61 63 63 20 | 3a 3d 20 43 61 6c 6c 4d |.N: acc |:= CallM|
|000002a0| 6f 64 75 6c 65 28 69 2c | 6b 4c 61 73 74 54 69 6d |odule(i,|kLastTim|
|000002b0| 65 2c 6f 74 68 65 72 41 | 35 2c 68 31 29 3b 0d 09 |e,otherA|5,h1);..|
|000002c0| 09 09 4f 54 48 45 52 57 | 49 53 45 0d 09 09 09 09 |..OTHERW|ISE.....|
|000002d0| 61 63 63 20 3a 3d 20 43 | 61 6c 6c 4d 6f 64 75 6c |acc := C|allModul|
|000002e0| 65 28 69 2c 6b 41 63 63 | 75 6d 75 6c 61 74 65 2c |e(i,kAcc|umulate,|
|000002f0| 6f 74 68 65 72 41 35 2c | 68 31 29 3b 0d 09 09 09 |otherA5,|h1);....|
|00000300| 45 4e 44 3b 0d 09 09 09 | 57 72 69 74 65 4c 6e 28 |END;....|WriteLn(|
|00000310| 27 53 75 6d 53 71 75 61 | 72 65 73 20 61 66 74 65 |'SumSqua|res afte|
|00000320| 72 20 27 2c 69 2c 27 20 | 3d 20 27 2c 61 63 63 29 |r ',i,' |= ',acc)|
|00000330| 3b 0d 09 09 45 4e 44 3b | 0d 09 48 55 6e 6c 6f 63 |;...END;|..HUnloc|
|00000340| 6b 28 68 31 29 3b 0d 45 | 4e 44 2e 0d 00 00 00 00 |k(h1);.E|ND......|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000390| 30 30 31 35 2c 24 41 38 | 38 46 3b 0d 46 55 4e 43 |0015,$A8|8F;.FUNC|
|000003a0| 54 49 4f 4e 20 4d 46 46 | 72 65 65 4d 65 6d 3a 20 |TION MFF|reeMem: |
|000003b0| 0d 50 65 72 73 69 73 74 | 54 65 73 74 2e 70 02 00 |.Persist|Test.p..|
|000003c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000003d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 a9 7f fe 9d 00 00 | 00 00 00 00 01 7e 3b 56 |........|.....~;V|
|00000400| 41 52 20 72 65 73 75 6c | 74 43 6f 64 65 3a 20 4f |AR resul|tCode: O|
|00000410| 53 45 72 72 29 3a 20 48 | 61 6e 64 6c 65 3b 0d 09 |SErr): H|andle;..|
|00000420| 49 4e 4c 49 4e 45 20 24 | 33 46 33 43 2c 24 30 30 |INLINE $|3F3C,$00|
|00000430| 31 44 2c 24 41 38 38 46 | 3b 0d 50 52 4f 43 45 44 |1D,$A88F|;.PROCED|
|00000440| 55 52 45 20 4d 46 54 65 | 6d 70 48 4c 6f 63 6b 28 |URE MFTe|mpHLock(|
|00000450| 68 3a 20 48 61 6e 64 6c | 65 3b 56 41 52 20 72 65 |h: Handl|e;VAR re|
|00000460| 73 75 6c 74 43 6f 64 65 | 3a 20 4f 53 45 72 72 29 |sultCode|: OSErr)|
|00000470| 3b 0d 09 49 4e 4c 49 4e | 45 20 24 33 46 33 43 2c |;..INLIN|E $3F3C,|
|00000480| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 63 3a 20 |...H..Mo|naco.c: |
|00000490| 52 65 61 6c 3b 0d 09 68 | 3a 20 48 61 6e 64 6c 65 |Real;..h|: Handle|
|000004a0| 3b 0d 0d 0d 09 46 00 06 | 00 04 00 3c 00 24 01 dd |;....F..|...<.$..|
|000004b0| 02 3d 00 3c 00 24 01 dd | 02 3d a2 d1 fd c8 00 00 |.=.<.$..|.=......|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|000004d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 4b 85 58 |...L...L|...2.K.X|
|000004e0| 0a 4a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.J.....2|..MPSR..|
|000004f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 4d 2b 24 00 00 |........|...M+$..|
+--------+-------------------------+-------------------------+--------+--------+